home *** CD-ROM | disk | FTP | other *** search
/ Kodak Picture CD: 357071 / Kodak Picture CD 357071.iso / setup / ksu / ksu.cab / gen.bis1 < prev    next >
Text File  |  2004-03-31  |  5KB  |  278 lines
  1. Start {
  2.     set sprite.autoMarkStoriesRead=0
  3.     
  4.     set $nStories = stories.count
  5.     if ($nstories=0) then {
  6.         end all    
  7.     }
  8.  
  9.     set frameFile = default
  10.  
  11.     set $empty = ""
  12.     set $summary = 0
  13.     set $curStory = -1
  14.     set $direction = 1
  15.     
  16.     set $timing = $nstories - 1
  17.     
  18.     # Make the flash remain for at least 3 flips.
  19.     # This will prevent 1 or 2 stories flash to disapear before the user will be able to intercat
  20.     if ($timing < 3) then {
  21.         set $timing = 3
  22.     }
  23.     
  24.     call Flip
  25.     
  26.     show at (500,1000)
  27.     animate toPixelOffset(0,-100) in 0.8 seconds slowEnd=5
  28.  
  29.     # Automatic mode loop
  30.     set $timerIsRunning = 0
  31.     call StartTimer
  32.     
  33.     repeat {
  34.         pause until ($flipTime = 1)
  35.         set $flipTime = 0
  36.         call Flip
  37.     } $timing times
  38.     
  39.     pause until ($flipTime = 1)
  40.     
  41.     call StopTimer
  42.     
  43.     onClick { nothing }
  44.     
  45.     animate toPixelOffset(0,76) in 0.6 seconds slowStart=3
  46.     end all
  47. }
  48.  
  49. StartTimer {
  50.     if ($timerIsRunning = 0) then {
  51.         set $timerIsRunning = 1
  52.         newSprite proc=Timer
  53.     }
  54. }
  55.  
  56. StopTimer {
  57.     if ($timerIsRunning = 1) then {
  58.         end spriteName="Timer"
  59.         set $timerIsRunning = 0
  60.     }
  61. }
  62.  
  63. Timer {
  64.     repeat {
  65.         pause for 3 seconds
  66.         set $flipTime = 1
  67.         pause until ($flipTime = 0)
  68.     } forever
  69. }
  70.  
  71. Next {
  72.     call StopTimer
  73.     MarkStoryAsRead story=$curStory
  74.     set $direction = 1
  75.     call Flip
  76. }
  77.  
  78. Previous {
  79.     call StopTimer
  80.     MarkStoryAsRead story=$curStory
  81.     set $direction = -1
  82.     call Flip
  83. }
  84.  
  85. ShowSummary {
  86.     newSprite proc=Summary spriteName="Summary"
  87. }
  88.  
  89. Summary {
  90.     set $direction = 0
  91.     set $summary = 1
  92.     call Flip()
  93.  
  94.     if ($url = $empty) then {
  95.         call NextLevel1Click
  96.     } else {
  97.         call UseSequence1
  98.     }
  99.     show
  100.     pause forever
  101. }
  102.  
  103. Minimize {
  104.     if ($summary = 0) then {
  105.         return 
  106.     }
  107.     set $summary = 0
  108.     end spriteName="Summary"
  109. }
  110.  
  111. CheckNextLevel {
  112.     set $smrtext = stories.item[$curStory].field[text]
  113.     set $url = stories.item[$curStory].field[url]
  114.     if ($smrtext = $empty) then {
  115.         if ($url = $empty) then {
  116.             set $nextLevel = 0
  117.             set $nextLevelToolTip = "No summary/full story"
  118.         } else {
  119.             set $nextLevel = 2
  120.             set $nextLevelToolTip = "Full Story"
  121.         }
  122.     } else {
  123.         set $nextLevel = 1
  124.         set $nextLevelToolTip = "Show Summary"
  125.     }
  126.     
  127. }
  128.  
  129. Flip {
  130.     set $color = "blue"
  131.     set $smcolor = "black"
  132.         
  133.     set $curStory = $curStory + $direction
  134.     if ($curStory = $nstories) then {
  135.         set $curStory = 0
  136.     } else if ($curStory < 0) then {
  137.         set $curStory = $nstories - 1
  138.     }
  139.     
  140.     call CheckNextLevel
  141.     if ($nextLevel = 0) then {
  142.         call NextLevel0Click
  143.     } else {
  144.         call UseSequence0
  145.     }
  146.     
  147.     #
  148.     # Show channel name
  149.     #
  150.     attachText rect (9,6,281,21) sequence=0 text=$schnname fontSize=15
  151.       scrollBar=no color=black font="Arial" bold
  152.     
  153.     if (stories.item[$curStory].isDeleted = 1) then {
  154.         set $color = mediumgray
  155.         set $smcolor = mediumgray
  156.     }
  157.         
  158.     
  159.     #
  160.     # Show title
  161.     #
  162.     set $title = stories.item[$curstory].field[title]    
  163.     attachText rect (14,28,320,62) sequence=0 text=$title fontSize=15
  164.       scrollBar=no color=$color font="Times New Roman" underline 
  165.  
  166.     #
  167.     # Show story number
  168.     #
  169.     set $storNum = $curStory + 1
  170.     set $storNum = $storNum + " of "
  171.     set $storNum = $storNum + $nstories
  172.     attachText rect (265,46,325,63) sequence=0 text=$storNum fontSize=14
  173.       margins (0,5,0,0) scrollBar=no color=RGB(74,107,155) font="Arial" center
  174.       bold
  175.     
  176.     #
  177.     # Show summary
  178.     #
  179.     if ($summary = 1) then {
  180.         MarkStoryAsRead story=$curStory
  181.         set $smrtext = stories.item[$curStory].field[text]
  182.         if ($smrtext = $empty) then {
  183.             set $smrtext = "No summary available"
  184.         }
  185.         attachText rect (14,12,321,90) sequence=1 text=$smrtext fontSize=14
  186.           color=$smcolor font="Arial" bold  
  187.     }
  188. }
  189.  
  190. FullStory {
  191.     openFullStory story=$curStory
  192.     call Minimize
  193. }
  194.  
  195. NextLevel {
  196.     MarkStoryAsRead story=$curStory
  197.     
  198.     call StopTimer()
  199.     if ($nextLevel = 2) then {
  200.         call FullStory        
  201.     } else if ($summary = 0) then {
  202.         call ShowSummary
  203.     }
  204. }
  205.  
  206. NextLevel0Click {
  207.     set sequence=0
  208.     set reference=midTop
  209.     onClick {
  210.         rect (330,1,355,21) toolTip="Close" does { 
  211.             end all 
  212.         }
  213.         rect (326,50,351,70) toolTip="Previous Story" does {
  214.             call Previous
  215.         }
  216.         rect (326,20,350,39) toolTip="Next Story" does {
  217.             call Next
  218.         }
  219.         rect (281,1,304,24) toolTip="Keep Story" does {
  220.             call StopTimer
  221.             KeepStory story=$curStory
  222.         }
  223.         rect (305,0,327,25) toolTip="Delete Story" does {
  224.             call StopTimer
  225.             DeleteStory story=$curStory
  226.         }
  227.     }
  228. }
  229.  
  230. NextLevel1Click {
  231.     set sequence=1
  232.     set reference=midBottom
  233.     onClick {
  234.         rect (330,2,347,20) toolTip="Minimize" does {
  235.             call Minimize
  236.         }
  237.     }
  238. }
  239.  
  240.  
  241. #<BALIWIZARD SEQUENCES: Code created automatically by editing the frame file
  242. #<BALIWIZARD SEQUENCE=0>
  243. UseSequence0 {
  244.     set sequence=0
  245.     set reference=midTop
  246.     onClick {
  247.         rect (330,1,355,21) toolTip="Close" does { 
  248.             end all 
  249.         }
  250.         rect (326,50,351,70) toolTip="Previous Story" does {
  251.             call Previous
  252.         }
  253.         rect (326,20,350,39) toolTip="Next Story" does {
  254.             call Next
  255.         }
  256.         rect (10,26,327,66) toolTip=$nextLevelToolTip does {
  257.             call NextLevel
  258.         }
  259.         rect (305,0,327,25) toolTip="Delete Story" does {
  260.             call StopTimer
  261.             DeleteStory story=$curStory
  262.             call Next 
  263.         }
  264.     }
  265. }
  266. #<BALIWIZARD SEQUENCE=1>
  267. UseSequence1 {
  268.     set sequence=1
  269.     set reference=midBottom
  270.     onClick {
  271.         rect (327,1,349,19) toolTip="Minimize" does {
  272.             call Minimize
  273.         }
  274.         rect (14,13,323,91) toolTip="Full Story" does {
  275.             call FullStory
  276.         }
  277.     }
  278. }